home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / misc / sci / DAlmanac_Exe.lha / Install_DigitalAlmanac / Installation / Install < prev   
Encoding:
Text File  |  1999-08-20  |  10.5 KB  |  438 lines
  1. ;$VER:Digital Almanac II Installer Script 1.5
  2.  
  3. (procedure P_INSTALL_EXE
  4.     (
  5.     (set #dest-cat-dir (tackon #dest-dir "Catalogs"))
  6.     (set #dest-fonts-dir (tackon #dest-dir "Fonts"))
  7.     (set #dest-icons-dir (tackon #dest-dir "Icons"))
  8.     (set #dest-install-dir (tackon #dest-dir "Installation"))
  9.     (set #dest-pictures-dir (tackon #dest-dir "Pictures"))
  10.     (set #dest-projects-dir (tackon #dest-dir "Projects"))
  11.     (set #dest-user-dir (tackon #dest-dir "User"))
  12.     (set #dest-bin-dir (tackon #dest-dir "Bin"))
  13.     (set #dest-docks-dir (tackon #dest-dir "DockBrushes"))
  14.     (set #dest-misc-dir (tackon #dest-dir "Misc"))
  15.     
  16.     (set #langnum
  17.         (askchoice
  18.             (prompt #choose-lang)
  19.             (choices "Deutsch" "English" "Français")
  20.             (help @askchoice-help)
  21.             (default #choose-lang-def)
  22.         )
  23.     )
  24.  
  25.     (set #goodies
  26.         (askoptions
  27.             (prompt #inst-goodies)
  28.             (choices #inst-goodies1 #inst-goodies2 #inst-goodies3 #inst-goodies4 #inst-goodies5)
  29.             (help @askoptions-help)
  30.         )
  31.     )
  32.  
  33.     
  34.     (set #langcat
  35.         (select #langnum
  36.         "Deutsch" "English" "Français"
  37.         )
  38.     )
  39.     
  40.     (set #langdoc
  41.         (select #langnum
  42.         "Deutsch" "English" "English"
  43.         )
  44.     )
  45.     
  46.     (set #src-lang-dir (tackon "/Catalogs" #langcat))
  47.     (set #src-docs-dir (tackon "/Docs" #langdoc))
  48.     (set #dest-lang-dir (tackon #dest-cat-dir #langcat))
  49.     
  50.     (working #msg-install-exe)
  51.  
  52.     (makedir #dest-dir)
  53.     (copyfiles
  54.         (source "//Install_DigitalAlmanac.info")
  55.         (dest #inst-dir)
  56.         (newname (tackon #inst-dir "DigitalAlmanac.info"))
  57.     )
  58.     (copyfiles
  59.         (source "/DigitalAlmanac")
  60.         (dest #dest-dir)
  61.         (infos)
  62.     )
  63.     (copyfiles
  64.         (source (tackon #src-docs-dir "DigitalAlmanac.guide"))
  65.         (dest #dest-dir)
  66.         (infos)
  67.     )
  68.     
  69.     (makedir #dest-cat-dir)
  70.     (makedir #dest-lang-dir)
  71.     (copyfiles
  72.         (source (tackon #src-lang-dir "DigitalAlmanac.catalog"))
  73.         (dest #dest-lang-dir)
  74.     )
  75.     
  76.     (makedir #dest-fonts-dir)
  77.     (copyfiles
  78.         (source "/Fonts")
  79.         (dest #dest-fonts-dir)
  80.         (all)
  81.     )
  82.     
  83.     (makedir #dest-icons-dir)
  84.     (copyfiles
  85.         (source "/Icons.info")
  86.         (dest #dest-dir)
  87.     )
  88.     (copyfiles
  89.         (source "/Icons")
  90.         (dest #dest-icons-dir)
  91.         (all)
  92.     )
  93.  
  94.     (makedir #dest-misc-dir)
  95.     (copyfiles
  96.         (source "/Misc")
  97.         (dest #dest-misc-dir)
  98.         (all)
  99.     )
  100.  
  101.     (makedir #dest-install-dir)
  102.     (copyfiles
  103.         (source "/Installation.info")
  104.         (dest #dest-dir)
  105.     )
  106.     (copyfiles
  107.         (source "/Installation")
  108.         (dest #dest-install-dir)
  109.         (all)
  110.     )
  111.     
  112.     (makedir #dest-pictures-dir)
  113.     (copyfiles
  114.         (source "/Pictures.info")
  115.         (dest #dest-dir)
  116.     )
  117.  
  118.     (makedir #dest-projects-dir)
  119.     (copyfiles
  120.         (source "/Projects.info")
  121.         (dest #dest-dir)
  122.     )
  123.     (if (BITAND #goodies 1)
  124.         (copyfiles
  125.             (source "/Projects")
  126.             (dest #dest-projects-dir)
  127.             (all)
  128.         )
  129.     )
  130.  
  131.     (makedir #dest-bin-dir)
  132.     (copyfiles
  133.         (source "/Bin")
  134.         (dest #dest-bin-dir)
  135.         (all)
  136.     )
  137.     
  138.     (makedir #dest-user-dir)
  139.     (if (BITAND #goodies 2)
  140.         (copyfiles
  141.             (source "/User")
  142.             (dest #dest-user-dir)
  143.             (all)
  144.         )
  145.     )
  146.  
  147.     (copylib
  148.         (prompt #msg-async-requires)
  149.         (help @copylib-help)
  150.         (source "/Libs/asyncio.library")
  151.         (dest "LIBS:")
  152.         (confirm)
  153.     )
  154.  
  155.     (if (BITAND #goodies 4)
  156.         (
  157.         (makedir #dest-docks-dir)
  158.         (copyfiles
  159.             (source "/DockBrushes.info")
  160.             (dest #dest-dir)
  161.         )
  162.         (copyfiles
  163.             (source "/DockBrushes")
  164.             (dest #dest-docks-dir)
  165.             (all)
  166.         )
  167.         )
  168.     )
  169.  
  170.     (if (BITAND #goodies 8)
  171.         (
  172.         (set #dest-arexx-dir (tackon #dest-dir "ARexx"))
  173.         (makedir #dest-arexx-dir)
  174.         (copyfiles
  175.             (source "/ARexx.info")
  176.             (dest #dest-dir)
  177.         )
  178.         (copyfiles
  179.             (source "/ARexx")
  180.             (dest #dest-arexx-dir)
  181.             (all)
  182.         )
  183.         )
  184.     )
  185.  
  186.     (if (BITAND #goodies 16)
  187.         (
  188.         (set #dest-developer-dir (tackon #dest-dir "Developer"))
  189.         (makedir #dest-developer-dir)
  190.         (copyfiles
  191.             (source "/Developer.info")
  192.             (dest #dest-dir)
  193.         )
  194.         (copyfiles
  195.             (source "/Developer")
  196.             (dest #dest-developer-dir)
  197.             (all)
  198.         )
  199.         )
  200.     )
  201.     
  202.     )
  203. )
  204.  
  205. (procedure P_INSTALL_DATA
  206.     (
  207.     (set #arc-dir
  208.         (askdir
  209.             (prompt #ask-dir-data)
  210.             (help @askdir-help)
  211.             (default @default-dest)
  212.             (disk)
  213.         )
  214.     )
  215.     (working #msg-install-data)
  216.     (set #arc (tackon #arc-dir "DAlmanac_Data.lha"))
  217.     (run (cat #lha " e \"" #arc "\" \"" (tackon #dest-dir "") "\""))
  218.     (set @default-dest #arc-dir)
  219.     )
  220. )
  221.  
  222. (procedure P_INSTALL_MAPS
  223.     (
  224.     (set #arc-dir
  225.         (askdir
  226.             (prompt #ask-dir-maps)
  227.             (help @askdir-help)
  228.             (default @default-dest)
  229.             (disk)
  230.         )
  231.     )
  232.     (working #msg-install-maps)
  233.     (set #arc (tackon #arc-dir "DAlmanac_Maps.lha"))
  234.     (run (cat #lha " e \"" #arc "\" \"" (tackon #dest-dir "") "\""))
  235.     (set @default-dest #arc-dir)
  236.     )
  237. )
  238.  
  239. (procedure P_INSTALL_AST
  240.     (
  241.     (set #arc-dir
  242.         (askdir
  243.             (prompt #ask-dir-ast)
  244.             (help @askdir-help)
  245.             (default @default-dest)
  246.             (disk)
  247.         )
  248.     )
  249.     (working #msg-install-ast)
  250.     (set #arc (tackon #arc-dir "DAlmanac_Ast.lha"))
  251.     (run (cat #lha " e \"" #arc "\" \"" (tackon #dest-dir "") "\""))
  252.     (set @default-dest #arc-dir)
  253.     )
  254. )
  255.  
  256. (procedure P_INSTALL_DS
  257.     (
  258.     (set #arc-dir
  259.         (askdir
  260.             (prompt #ask-dir-ds)
  261.             (help @askdir-help)
  262.             (default @default-dest)
  263.             (disk)
  264.         )
  265.     )
  266.     (working #msg-install-ds)
  267.     (set #arc (tackon #arc-dir "DAlmanac_DS.lha"))
  268.     (run (cat #lha " e \"" #arc "\" \"" (tackon #dest-dir "") "\""))
  269.     (set @default-dest #arc-dir)
  270.     )
  271. )
  272.  
  273. (procedure P_INSTALL_EXTRA
  274.     (
  275.     (set #arc-dir
  276.         (askdir
  277.             (prompt #ask-dir-extra)
  278.             (help @askdir-help)
  279.             (default @default-dest)
  280.             (disk)
  281.         )
  282.     )
  283.     (working #msg-install-extra)
  284.     (set #arc (tackon #arc-dir "DAlmanac_Extra.lha"))
  285.     (run (cat #lha " e \"" #arc "\" \"" (tackon #dest-dir "") "\""))
  286.     (set @default-dest #arc-dir)
  287.     )
  288. )
  289.  
  290. (if (= @language "deutsch")
  291.     (
  292.     (set #choose-inst "Bitte wählen Sie die Archive aus, welche Sie installieren möchten.\nArchive mit '**' sind für eine Erstinstallation notwendig !!")
  293.     (set #inst-exe "Installation des Hauptarchivs **")
  294.     (set #inst-data "Installation der Hauptdaten **")
  295.     (set #inst-maps "Installation der Oberflächentexturen")
  296.     (set #inst-ast "Installation des Asteroidenkataloges")
  297.     (set #inst-ds "Installation der Deep-Sky Objektkataloge")
  298.     (set #inst-extra "Installation des großen Sternkataloges (Extra)")
  299.     (set #ask-dest1 "Wählen Sie ein Verzeichnis aus,\nwo Digital Almanac II installiert werden soll.\nEine Schublade 'DigitalAlmanac' wird automatisch erzeugt.")
  300.     (set #ask-dest2 "In welchem Verzeichnis befindet sich der Ordner 'DigitalAlmanac' ?")
  301.     (set #ask-dir-lha "In welchem verzeichnis befindet sich 'Lha' ?")
  302.     (set #ask-dir-data "In welchem Verzeichnis befindet sich 'DAlmanac_Data.lha' ?")
  303.     (set #ask-dir-maps "In welchem Verzeichnis befindet sich 'DAlmanac_Maps.lha' ?")
  304.     (set #ask-dir-ast "In welchem Verzeichnis befindet sich 'DAlmanac_Ast.lha' ?")
  305.     (set #ask-dir-ds "In welchem Verzeichnis befindet sich 'DAlmanac_DS.lha' ?")
  306.     (set #ask-dir-extra "In welchem Verzeichnis befindet sich 'DAlmanac_Extra.lha' ?")
  307.     (set #inst-goodies "Welche anderen Dateien möchten Sie installieren ?\n\nFalls Sie ein Update machen wollen,\nsollten Sie mit '**' markierte Dateien nicht auswählen !!")
  308.     (set #inst-goodies1 "Beispielprojektdateien (Projects) **")
  309.     (set #inst-goodies2 "Benutzerdateien (User) **")
  310.     (set #inst-goodies3 "Dockbrushes für Toolmanager")
  311.     (set #inst-goodies4 "ARexx-Beispiel")
  312.     (set #inst-goodies5 "Entwicklerdaten für Teleskop-Fernsteuerung")
  313.     (set #choose-lang "Wählen Sie eine Sprache für Digital Almanac II aus.")
  314.     (set #choose-lang-def 0)
  315.     (set #msg-install-exe "Installiere Digital Almanac II.")
  316.     (set #msg-install-data "Installiere Daten.")
  317.     (set #msg-install-maps "Installiere Oberflächentexturen.")
  318.     (set #msg-install-ast "Installiere Asteroiden.")
  319.     (set #msg-install-ds "Installiere Deep-Sky Objekte.")
  320.     (set #msg-install-extra "Installiere großen Sternenkatalog.")
  321.     (set #msg-async-requires "Digital Almanac II benötigt asyncio.library 39.x.")
  322.     (set #msg-nothing-chosen "Es wurde kein Archiv ausgewählt !!")
  323.     )
  324. )
  325. (if (= @language "english")
  326.     (
  327.     (set #choose-inst "Please choose the archives, you like to install.\nArchives marked with '**' are necessary for a first installation !!")
  328.     (set #inst-exe "Installation of the main exe archiv")
  329.     (set #inst-data "Installation of the main basic datas")
  330.     (set #inst-maps "Installation of the surface textures")
  331.     (set #inst-ast "Installation of the asteroid catalog")
  332.     (set #inst-ds "Installation of the deep-sky object catalogs")
  333.     (set #inst-extra "Installation of the large star catalog (extra)")
  334.     (set #ask-dest1 "Choose directory to install Digital Almanac II.\nA drawer 'DigitalAlmanac' will automatically be created.")
  335.     (set #ask-dest2 "What is the directory of the folder 'DigitalAlmanac' ?")
  336.     (set #ask-dir-lha "In which drawer is 'Lha' ?")
  337.     (set #ask-dir-data "In which drawer is 'DAlmanac_Data.lha' ?")
  338.     (set #ask-dir-maps "In which drawer is 'DAlmanac_Maps.lha' ?")
  339.     (set #ask-dir-ast "In which drawer is 'DAlmanac_Ast.lha' ?")
  340.     (set #ask-dir-ds "In which drawer is 'DAlmanac_DS.lha' ?")
  341.     (set #ask-dir-extra "In which drawer is 'DAlmanac_Extra.lha' ?")
  342.     (set #inst-goodies "What other files do you like to install ?\n\nIf you want to update\nyou should deselect options marked with '**' !!")
  343.     (set #inst-goodies1 "Example project files (Projects) **")
  344.     (set #inst-goodies2 "User files (User) **")
  345.     (set #inst-goodies3 "Dockbrushes for Toolmanager")
  346.     (set #inst-goodies4 "ARexx example")
  347.     (set #inst-goodies5 "Developer information for telescope control")
  348.     (set #choose-lang "Select language you want to use with Digital Almanac II.")
  349.     (set #choose-lang-def 1)
  350.     (set #msg-install-exe "Installing Digital Almanac II.")
  351.     (set #msg-install-data "Installing datas.")
  352.     (set #msg-install-maps "Installing surface textures.")
  353.     (set #msg-install-ast "Installiere asteroids.")
  354.     (set #msg-install-ds "Installiere deep-sky objects.")
  355.     (set #msg-install-extra "Installiere large star catalog.")
  356.     (set #msg-async-requires "Digital Almanac II requires asyncio.library 39.x.")
  357.     (set #msg-nothing-chosen "No archive has been chosen !!")
  358.     )
  359. )
  360.  
  361. (set #install-arc
  362.     (askoptions
  363.         (prompt #choose-inst)
  364.         (choices #inst-exe #inst-data #inst-maps #inst-ast #inst-ds #inst-extra)
  365.         (default 3)
  366.         (help @askchoice-help)
  367.     )
  368. )
  369.  
  370. (if (= #install-arc 0)
  371. (exit #msg-nothing-chosen)
  372. )
  373.  
  374. (if (BITAND #install-arc 1)
  375.     (set #inst-dir
  376.         (askdir
  377.             (prompt #ask-dest1)
  378.             (help @askdir-help)
  379.             (default @default-dest)
  380.             (disk)
  381.         )
  382.     )
  383.     (if (= 0 (exists "//DigitalAlmanac.info"))
  384.         (set #inst-dir
  385.             (askdir
  386.                 (prompt #ask-dest2)
  387.                 (help @askdir-help)
  388.                 (default @default-dest)
  389.                 (disk)
  390.             )
  391.         )
  392.         (set #inst-dir "//")
  393.     )
  394. )
  395.  
  396. (set #dest-dir (tackon #inst-dir "DigitalAlmanac"))
  397.  
  398. (if (BITAND #install-arc 62)
  399.     (
  400.     (set #lha-dir
  401.         (askdir
  402.             (prompt #ask-dir-lha)
  403.             (help @askdir-help)
  404.             (default "C:")
  405.             (disk)
  406.         )
  407.     )
  408.     (set #lha (tackon #lha-dir "Lha"))
  409.     )
  410. )
  411.  
  412. (if (BITAND #install-arc 1)
  413.     (P_INSTALL_EXE)
  414. )
  415.  
  416. (if (BITAND #install-arc 2)
  417.     (P_INSTALL_DATA)
  418. )
  419.  
  420. (if (BITAND #install-arc 4)
  421.     (P_INSTALL_MAPS)
  422. )
  423.  
  424. (if (BITAND #install-arc 8)
  425.     (P_INSTALL_AST)
  426. )
  427.  
  428. (if (BITAND #install-arc 16)
  429.     (P_INSTALL_DS)
  430. )
  431.  
  432. (if (BITAND #install-arc 32)
  433.     (P_INSTALL_EXTRA)
  434. )
  435.  
  436. (set @default-dest #inst-dir)
  437.  
  438.